home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / xeno / bbbbscd.lha / BBBBScd / Xenolink / Menusource / CDbbbbs.src
Text File  |  1995-03-12  |  1KB  |  59 lines
  1. ;
  2. ; CDbbbbs.src
  3. ;
  4.  
  5. Menu "CDbbbbs.menu" Hotkeyable
  6.  
  7. Level 0-255, "CDbbbbs.TXT"
  8.  
  9. Prompt 0, 0-255, "What now, ~100?  (~138 min): "
  10. Prompt 1, 0-255, "What now, ~100?  (~138 min): "
  11.  
  12. Begin
  13.  
  14.  
  15. CMD = "?"
  16. {
  17.    DisplayMenu
  18. }
  19.  
  20.  
  21. CMD = "E"
  22.    {
  23.       CLIDOORNOBREAK "c:echo >ram:CDuserinfo ~124 "
  24.       CLIDOORNOBREAK "c:echo >>ram:CDuserinfo ~138 "
  25.       CLIDOORNOBREAK "c:echo >>ram:CDuserinfo ~160 "
  26.       CLIDOORNOBREAK "c:echo >>ram:CDuserinfo ~164 "
  27.       CLIDOORNOBREAK "c:echo >>ram:CDuserinfo ~14 "
  28.       CLIDOORNOBREAK "c:echo >>ram:CDuserinfo ~116 "
  29.       Rexx "s:bbsExtDL.baud ~116"
  30.       TypeSpecificFile "XENOLINK:SystemText/~164/Wait.TXT"
  31.    }
  32.  
  33.  
  34. CMD = "X"
  35.    {
  36.       Return
  37.    }
  38.  
  39.  
  40. CMD = "D"
  41.    {
  42.       Rexx "s:bbsExtKill.rexx ~116"
  43.       CLIDOORNOBREAK "c:WAIT 2"
  44.    }
  45.  
  46.  
  47. CMD = "S"
  48.    {
  49.       ChangeMsgSection "0"
  50.       FlushInputBuffer
  51.       PushToInputBuffer "External file||"
  52.       TypeSpecificFile "XENOLINK:SystemText/CLS.TXT"
  53.       ReadSubject
  54.       TypeSpecificFile "XENOLINK:SystemText/~164/Wait.TXT"
  55.    }
  56.  
  57.  
  58. END
  59.